#!/usr/bin/env perl 
#===============================================================================
#
#         FILE: Date_Manip_1.pl
#
#        USAGE: ./Date_Manip_1.pl  
#
#  DESCRIPTION: 
#
#      OPTIONS: ---
# REQUIREMENTS: ---
#         BUGS: ---
#        NOTES: ---
#       AUTHOR: YOUR NAME (), 
# ORGANIZATION: 
#      VERSION: 1.0
#      CREATED: 07/31/2013 02:20:05 AM
#     REVISION: ---
#===============================================================================

use strict;
use warnings;
use utf8;

use Date::Manip;

my $date=&DateCalc("today","-1 days", 0);#yesterday
my $date=&UnixDate($date, "%Y-%m-%d %T");

print "$date\n";
exit 0;
